import StringHelper

b1 = isPartOf "Tom" "Tom Hanks"
-- b1 = True

b2 = isPartOf "Star Wars" "2nd part of Star Wars"
-- b2 = True

b3 = isPartOf "StarWars" "2nd part of Star Wars"
-- b3 = False

b5 = isPartOf "ssp" "sssp"
-- True

b6 = isPartOf "sssp" "ssst sssr sssp"
-- True

b7 = isPartOf "sss" "sstssrssp"
-- False

b8 = isPartOf "" "sstssrssp"
-- True

b9 = isPartOf "a" ""
-- False

b10 = isPartOf "" ""
-- True

b4 = displayInTable [["krotki str", "aa", "to jest dlugi string i koniec"],
                     ["aa", "b", "c"],
                     ["aksdbkjdskds sdsda", "sdsew sds seessd sdfsfsseeds", "sddsfsd"],
                     ["aksa", "sdsew sds seesksjdnkd jnsdks nskdnkds jnsdnsl jnenlw lnwlsdnlsn lnslndsjlsnl nlsdnlsnln sd sdfsfsseeds", "sddsfs ksnksd"],
                     ["fa", "slndsjlsnl nlsdnlsfsseeds", "sddsss ksd"]]
-- do putStrLn b4 = 
--        | krotki str         | aa                     | to jest dlugi string i | 
--        |                    |                        |  koniec                | 
--        |----------------------------------------------------------------------|
--        |----------------------------------------------------------------------|
--        | aa                 | b                      | c                      | 
--        |----------------------------------------------------------------------|
--        | aksdbkjdskds sdsda | sdsew sds seessd sdfsf | sddsfsd                | 
--        |                    | sseeds                 |                        | 
--        |----------------------------------------------------------------------|
--        | aksa               | sdsew sds seesksjdnkd  | sddsfs ksnksd          | 
--        |                    | jnsdks nskdnkds jnsdns |                        | 
--        |                    | l jnenlw lnwlsdnlsn ln |                        | 
--        |                    | slndsjlsnl nlsdnlsnln  |                        | 
--        |                    | sd sdfsfsseeds         |                        | 
--        |----------------------------------------------------------------------|
--        | fa                 | slndsjlsnl nlsdnlsfsse | sddsss ksd             | 
--        |                    | eds                    |                        | 
--        |----------------------------------------------------------------------|
--         (4 rekordow)
